﻿Public Class ParteMedico
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtFechaHora.Text = Now.ToString


    End Sub

    'Aca hay que habilitar el botón "Registrar internación" SOLO cuando el conforme médico funcione,
    'o sea, cuando el médico ponga la huella y salga todo OK!!!



    Protected Sub btnBuscar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnBuscar.Click

        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset

        param(0) = New ADODB.Parameter
        param(0).Name = "@DNI"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = txtDNI.Text
        param(0).Size = 10

        Rs = Datos.TraerTodos("traerDNI_NomyApPersona", param, "Vacunaciones.aspx")

        If Rs.RecordCount > 0 Then
            txtDNIpaciente.Text = Rs.Fields(0).Value.ToString
            txtNombrePaciente.Text = Rs.Fields(1).Value.ToString
            txtApellidoPaciente.Text = Rs.Fields(2).Value.ToString
        End If

    End Sub

    Protected Sub btnConforme_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConforme.Click
        mdlpopup.Show()
    End Sub


    Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGuardar.Click

    End Sub
End Class